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SUMMARY 

Hardware and software were developed to Implement the hybrid digital con- 
trol of two Jet A-l fueled Mach 0.3 burners from startup to completion of a 
preset number of hot corrosion flame durability cycle tests of materials at 
1652 °F. This was accomplished by use of a basic language programmable micro- 
computer and data acquisition and control unit connected together by the 
IEEE-488 Bus. The absolute specimen temperature was controlled to ±3 °F by 
use of digital adjustment of the fuel flow using a P-I-D ( Proportlonal- 
Integral-Derl vatlve) control algorithm. The specimen temperature was within 
±2 °F of the set point more than 90 percent of the time. Pressure control was 
achieved by digital adjustment of the combustion air flow using a proportional 
control algorithm. The burner pressure was controlled at 1.0±0.02 pslg. 

Logic schemes were Incorporated Into the system to protect the test 
specimen from abnormal test conditions In the event of a hardware or software 
malfunction. 


INTRODUCTION 

Material durability testing In dynamic flame combustion products Is In 
common use In the gas turbine and high temperature alloys Industries (refs. 1 
to 3). The determination and control of the true surface temperature has been 
a continuing problem and source of uncertainty In the results obtained from 
such tests. The burner rigs used In this testing have utilized analog (elec- 
tromechanical) controlling Instruments which Implement proportional-integral 
control modes. With this type of control system, a temperature signal Is 
usually obtained from an Infrared optical sensor aimed at the test specimen 
and compared by electronic circuitry to a set point signal. The resulting 
error signal Is used to adjust the position of a fuel valve In such a manner 
as to return the temperature to the set point. This Is a real time feedback 
control system and If the proportional and Integral parameters are set prop- 
erly, It yields good average temperature control. The Infrared temperature 
sensor requires calibration to account for specimen emlsslvlty. If the emls- 
slvlty changes as the test proceeds, for example from changing scale composi- 
tion, the test results may be adversely affected. The use of a two-color 
optical pyrometer holds some promise of minimizing this problem provided that 
any changes In the emlsslvlty of the surface are Independent of the wave- 
length. This appears to be a good assumption for most oxides formed during 
high temperature metal corrosion. 





An absolute method of near surface temperature measurement can be 
attained by placing a small thermocouple In a hole located 5 to 10 mils 
(0.127 to 0.254 mm) beneath the surface. This has several practical drawbacks 
when applied to long time routine testing. First, the specimen Is rotating so 
a slip ring must be used to bring out the signal. The slip ring assembly can 
require much maintenance when used In long time testing and may also Introduce 
noise Into the signal. Furthermore, a hole for the thermocouple must be 
drilled In each test specimen which Increases their cost. Finally, small 
diameter thermocouple wire Is fragile and may tend to rupture when changing 
specimens. 

The setting of the proportional and Integral parameters of an analog con- 
troller Is tedious and requires often readjustment. Furthermore, even with 
the best settings, the low thermal Inertia of the burner rig system causes 
large and rapid changes In the fuel valve throughput to quickly reduce the 
temperature error to zero and achieve the desired temperature control. This 
action causes large variations In the Instantaneous fuel-to-alr ratio which In 
turn produces a flame with a pulsating temperature and this causes excessive 
carbon buildup In the combustor. This latter problem can alter the flame 
pattern and parameters of the burner. 

To control the flame velocity a second controller Is required for the 
combustion air flow. This controller compensates for pressure changes In the 
combustion chamber caused by changes In the flame temperature. There Is thus 
some Interaction between the fuel and air flow controllers. 

A further complication of the analog control system Is Imposed by the 
temperature cycling required In most material durability testing. At the con- 
clusion of the heating cycle time, the flame Is removed from the test specimen 
and Its temperature falls rapidly. The specimen temperature sensor then sig- 
nals the analog controller to open the fuel valve In an effort to raise the 
specimen temperature to the set point. If this action Is not quickly arrested, 
the flame Is blown out. The arrest of the fuel valve travel Is accomplished 
by deviation circuitry In the analog controller which switches the controller 
from automatic to manual control mode. The setting of this cutoff point Is 
critical and tedious. For example If set too high, a large temperature over- 
shoot occurs on heatup In the next heating cycle: on the other hand If set 
too low, the test temperature Is not reached on heat up and the controller 
remains In the manual mode. Furthermore, experience has demonstrated that the 
cutoff point setting changes with time. 

Durability testing usually Involves long duration tests In which the test 
Is proceeding unattended much of the time. During these periods many changes 
In the environment to which the specimen Is exposed may occur, such as the 
change In test temperature caused by a variation In the cutoff setting 
described above. The Interpretation of test results for specimens tested under 
varying and sometimes questionable conditions Is greatly suspect. Also, speci- 
mens become more costly as the test time Increases and the prevention of non- 
normal testing Is a necessary goal. Experience has proven that this Is not 
easily achieved by analog (electromechanical) technology alone. The purpose 
of the work reported here was to determine the feasibility of using' a digital 
computer to control one or more burner rigs. 

The approach used was to control the temperature and pressure through the 
use of a digital microcomputer system (refs. 4 to 9). This approach uses a 
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programmable computer which, via a suitable Interface, acquires Information 
about the temperature, pressure, and other system parameters. The computer 
program then calculates appropriate feedback control signals. This type of 
control Is really a simulation of a manual mode whereby the fuel or air valve 
are adjusted by small Incremental steps ("tweeked") only when needed. In this 
way the fuel to air ratio Is not varied rapidly or over a large range; It Is 
only slowly "nudged" In the direction necessary to adjust the temperature and 
pressure to their respective set points. The frequency and magnitude of this 
fine adjustment ("nudging") can be readily obtained by software using any one 
or a combination of control algorithms. One of the most commonly used Is a 
real time P-I-D feedback loop. Also, the special and difficult problem of 
transition from heating to cooling and back to heating, presented by cyclic 
testing, can be easily handled In a positive way through software by using a 
hardware generated burner position signal. Tests for abnormal conditions can 
be made through software logic and burner shutdown action can be Initiated. 

Satisfactory digital control of two Independent burner rigs, burning Jet 
A-l fuel, has been accomplished using a single computer. The absolute specimen 
temperature was controlled to ±3 °F. For >90 percent of the time the tempera- 
ture was within ±2 °F of the set point. Burner pressure was controlled at 
1.0±0.02 pslg to yield flame velocity control at Mach 0.3±0.02. 


HARDWARE 

Figure 1 Is a photograph of a burner rig used In this study and shows the 
layout of the major components. The burner Is In position to heat the speci- 
men. In the cooling position It rotates about the pivot so that the flame 
misses the test specimen and a flow of compressed air Impinges on the speci- 
men. The fiber optic cable conducts the light from the specimen to the two 
color optical pyrometer detector located beneath the table. A cutaway speci- 
men rotating on Its own long axis Is shown. This specimen geometry Is used to 
reduce temperature gradients and yield more meaningful test results (ref. 10). 
A two color optical pyrometer provides the temperature dependent control 
signal. This type of pyrometer compensates for emlsslvlty. 

Figure 2 Is a schematic diagram of the total control system. The data 
acquisition and control unit Is the heart of the system. It contains circuit 
boards for Input and output of signals and Is totally controllable by the com- 
puter. The level of the Input voltages from the transducers are measured by a 
5-1/2 digit system voltmeter. These voltages are converted to engineering 
units by software. The digital outputs from the computer are converted to 
current flows by the output boards. The boards output 0 to 20 mA In 10 000 
digital steps, that Is 0.002 mA per step. It was found that a change of 10 
digital steps moved the fuel valve stem a distance of 1 mil (0.0254 mm) and 
changed the temperature of the specimen by 1 °F for the burner configuration 
used. It should be kept In mind that the above digital calibration of the 
analog system Is given for reference purposes and was found to vary slightly 
on day-to-day basis. The data acquisition and control unit Is connected to 
the microcomputer and printer by the standard IEEE-488 Handshake Bus. 

It will be noticed that this Is a hybrid system that Is partly computer 
controlled (digital) and partly analog (electromechanlcally) controlled. This 
configuration evolved because the computer was applied to an existing system 
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which has previously totally controlled by analog (electromechanlcally) 
systems. For example, while the combustion air preheater Is turned on by 
computer control the air temperature Is controlled by an analog-electro- 
mechanical controller. Likewise, the Ignitor Is turned on by the computer but 
It Is turned off after 30 sec by a timer actuated electromechanical switch. 
With further effort the system could be converted to total computer control. 
This may result In a cost saving and surely easier programming. 


SOFTWARE 

Software was developed so that the computer could make observations and 
then adjustments In burning parameters and burner actions In conjunction with 
the existing system hardware. The program listing Is presented In the appendix 
with the logic and sequencing reviewed schematically In figure 3. 

The program performs three main tasks. The first Is to startup the 
burner and then adjust the specimen temperature and burner pressure, within 
small ranges of their respective set points before transferring to the P-I-D 
fuel loop and proportional air control loop In the first cycle. The second 
task Is the operation of the P-I-D and proportional air control loops. Task 
three consists of the scheme for cooling and reheating without temperature 
overshoot. Associated with these tasks Is a certain amount of safety, record- 
keeping, measurement, display and calculation activity. A brief description 
of the operation of these main parts through the first complete cycle for a 
single rig (number 3) follows. 

Task one Is the startup and establishment of the temperature and burner 
pressure with subsequent transfer to the P-I-D temperature control loop. 

Figure 3(a) presents the steps Involved. First the desired rig Is selected by 
keyboard selection through a special function key. Screen prompts then ask 
for operator keyboard Inputs of cycle data as number of cycles desired, number 
of previous cycles completed, and specimen Identification. No further opera- 
tor attention Is needed. The combustion air valve Is opened as the computer 
outputs a preset digital valve to the digital to analog board where It Is con- 
verted to an electrical signal that actuates the air valve and the combustion 
air heater Is turned on. Program execution then returns to the rig selection 
segment thus completing the first loop. On subsequent program executions 
through this loop a branching flag directs the execution to the next segment 
where the temperature of the combustion air Is checked and If It has not 
reached 440 °F execution returns to the rig selection segment. By use of 
branching flags each loop Is executed In succession throughout the program. 

Once the air temperature reaches the 440 °F set point, the fuel Is turned on 
and Ignited. Next the fuel pressure Is set to 91 to 92 pslg after which the 
cooling timer Is started. During the Initial cooling period of three minutes 
the fuel to air ratio is set to 0.025 to 0.026. From prior experience this 
value was known to produce a flame temperature which would not heat the speci- 
men beyond the desired test temperature. However, a fuel pressure lower limit 
of 86 pslg was used to prevent flame out. After the Initial cooling period 
the burner Is pivoted so the flame strikes the specimen. The specimen now 
enters the heatup stage and If the specimen Is new and without any previous 
test cycles It Is held for 30 min In the flame before final adjustment to the 
set point temperature. This procedure was found necessary because machined 
specimens had a highly reflective or polished surface. These surfaces pro- 
duced high valued two color pyrometer readings. It was found during this 
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Initial 30 min heating period that the high apparent temperature decreases 
rapidly as the surface darkens and takes on a matte appearance due to oxidation 
and corrosion. If the test specimen was previously exposed to the flame, as 
In previous test cycles, no Initial heating period Is used and the program 
Immediately proceeds to adjust the fuel and air flows In the proper direction 
so that the temperature and burner pressure closely approach their respective 
set points. This Is achieved by stepwise Incrementing or decrementing the 
fuel flow and proportional control of the air flow. Once the temperature Is 
within the arbitrarily chosen range of 1648 to 1654 °F control Is transferred 
to the P-I-D loop. If this temperature range cannot be achieved within 10 min 
or the fuel pressure exceeds 155 pslg then the burner Is shutoff. Transfer to 
the P-I-D loop Is accomplished by setting the branching flag, control 3, to a 
value of 2. This causes the program to always branch to "running" at point 
"A" In figure 3(b). At point "A" a check of the burner position signal Is 
made, because the burner Is now In the heating position and the heatup flag. 

Out 3, Is >2, execution enters the P-I-D loop. The first cycle startup seg- 
ment Is not used again. 

The steps of task two Include the P-I-D loop and the cooling and heatup 
branching tests. A schematic of the logic steps are presented In figure 3(b). 
The major function of this loop Is the calculation of the fuel and air control 
digits and adjustment of the fuel and air flows. However, several other func- 
tions appropriate to this program segment, as, screen display of data, safety 
checks, and other housekeeping tasks are also accomplished. 

The P-I-D calculation of the fuel digit Is: 

0utfuel3 = 0utfuel3s - (Errt*Gal3) - (Sum1nt3*Res3) - (Rate*Rcon3) (1) 

where Errt Is the error In temperature, that Is (measured temperature - set 
point); Sumlnt Is the Integral of the temperature error curve versus time 
determined by a numerical approximation; and Rate Is the temperature change 
per unit of time; Ga13, Res3 and Rcon3 are tuning constants. The tuning 
constants are used to tune the control loop to maximum control quality. Tuning 
constants can be determined by analytical procedures (ref. 5) or by trial. 

The latter method was employed here to determine the optimum constants. 
0utfuel3s Is the bias term and takes on Its value when the temperature Is In 
a narrow range of the set point during Initial setting of the temperature on 
heatup, and this value Is retained for the cycle. The final digit Is then the 
algebraic sum of the terms In equation (1). This digit Is sent to the digital 
to analog hardware which converts the digit to an electrical control signal 
and via an electropneumatic transducer positions the fuel valve. 

The proportional calculation of the air digit Is: 

A1r3 = Alr3 - (Errp*A1r3c) (2) 

where Errp Is the error In the burner pressure, that Is (measured pressure- 
set point pressure) and A1r3c Is a tuning constant. No bias Is used, that 
Is, the final output digit Is obtained by readajustlng the presently stored 
digit. This scheme was found to give sufficiently good control of the burner 
pressure and hence flame velocity so no further terms were used. The tuning 
constant was determined by trial. The readjustment of the fuel and air 
occurred 10 times per minute for each burner. While this was sufficient, with 
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more efficient programming It Is estimated that a rate of 15 to 20 times per 
minute may be possible. 

Afterwards or concurrently with the fuel and air adjustment several other 
functions are performed In the P-I-D loop. For example display on the CRT 
screen of the burner pressure, the specimen temperature, and the fuel to air 
ratio as a function of time Is performed. This Is useful for on-line visual 
assessment of burner action. 

Also the fuel flow digit Is stored when the temperature Is within a 2° 
band of the set point. This digit Is adjusted by decreasing Its value by a 
1/2 percent and Is used as the Initial value In heatup In the next cycle. 

This 1/2 percent setback Is actually calculated In the cooling and heatup loop 
to be described later. The maximum and minimum temperatures attained In each 
heating cycle are tracked and recorded within the P-I-D loop. A most useful 
bit of Information Is the temperature distribution In a heating cyle. This 
was calculated as the time spent In three temperature bands. The first Is the 
percentage of the cycle heating time that the temperature Is greater than the 
minimum but less than 1650 °F, the next Is the percent of time the temperature 
Is between 1650 and 1654 °F, this Is ±2 °F of the set point, and lastly the 
portion above 1654 °F but less that the maximum temperature. An examination 
of these values gives the operator a means of judging the control action. 

Very good control was considered to show >90 percent of the time In the center 
band. Less than 80 percent was not accepted and the test was stopped If this 
occurred. This latter action Is taken In the cooling and heating loop to be 
described later. Also, If the time distribution In each band Is symmetrical 
then the control action Is generally considered to be desirable. If the 
distribution Is skewed then this may Indicate that the control action Is 
undesirable and operator corrective action may be called for, such as, 
changing the tuning constants and/or hardware. 

Distributed In the program are several software checks for "out of limit" 
operations. Operation beyond these limits results In shutdown of the burner 
to prevent possible extended testing under abnormal conditions. Due to the 
hybrid nature of this system most of these software checks are Involved with 
protection of the specimen because the burner hardware has several analog 
safety overrides to shutoff the fuel flow If certain conditions hazardous to 
equipment and personnel develop. The software provides some redundancy which 
Is not undesirable from a safety standpoint. If the temperature of the com- 
bustion chamber falls below 900 °F or the fuel pressure exceeds 155 pslg the 
fuel flow Is shutoff. Also, If the ac line power to the computer falls and 
the failure lasts more than 1 sec then the computer switches to battery opera- 
tion. The 1 sec delay allows for short term power loss before going Irrevers- 
ibly to the battery mode. During the one minute of battery operation the fuel 
flow Is shutoff and the test Is terminated. If the line power to the data 
acquisition units falls then the burner Is automatically shutoff with no 
assist from the computer. 

At the end of the present heating time a separate electromechanical timer 
actuates a solenoid valve which actuates an air driven piston that causes the 
burner to rotate so that the flame misses the specimen and the cooling cycle 
starts. When the burner position signal Is checked by the computer It will 
Indicate that the burner Is In the cooling position. This causes the program 
to branch to the cooling segment which starts at point "B" In figure 3(b). 
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The software for task three Is Involved with the cooling and heatup of 
the specimen. A schematic of the major logical steps Is presented In 
figure 3(c). The first step Is to determine whether this Is the first pass 
through the cooling cycle loop. When the branching flag "N" Is equal to 1, 
the program proceeds to execute the statements of the first pass segment. 

These Include printing a hard copy of the heating parameters and calculating - 
the Initial fuel digit for the next heating cycle. This Is performed on the 
fuel digit stored during the heating cycle when the temperature was within 
±2 °F of the set point. This latter digit Is decreased by 1/2 percent (set- 
back). The resulting digit Is output to the fuel valve so that the flame 
temperature Is lowered to a point where It will not heat the specimen up to 
the set point In the next heating cycle. This allows a slow and controlled 
approach to the set point In the next cycle heatup and prevents temperature 
overshoot. Next comes Incrementing the software cycle counter, setting the 
Integral term In the P-I-D loop to zero, checking the residence time In the 
middle temperature band and shutting off the burner If It Is less than 
80 percent. Also, the Initial values of T max and T m ^ n are reset to 
1652 °F for the next cycle and two branching flags (N and 0ut3) are reset. 

A software cooling timer Is also started. The second and all subsequent 
passes through the cooling loop until the 3 min of cooling cycle time has 
elapsed then go to the path where N = 2. Here several checks are made. If 
the cycles desired equals the cycles completed then the main power to the 
burner Is shutoff and execution of the program Is stopped. If more cycles 
have to be run, a check of the elapsed software cooling time Is made and If 
more than 10 min or the fuel pressure Is more than 155 pslg then the burner Is 
shutoff because of some malfunction In the analog system. 

Upon the completion of the cooling cycle the burner Is rotated by the 
electromechanical timer and pneumatic actuator to the heating position and the 
electromechanical heating timer Is started. The burner position signal test 
at point "A" will now direct execution to heating and test of the heatup 
branching flag, 0ut3, will be found to be two so branching to point "C" In 
figure 3(c) will occur. In this loop the fuel flow Is Incremented In small 
steps until the temperature set point Is nearly reached. When this Is achieved 
the heatup flag, 0ut3, Is set to three and further passes through the heatup 
branching test point will send the execution to the P-I-D control loop In 
figure 3(b). This completes the first heating and cooling cycle. 

The program also Incorporates several other functions. A special purpose 
key can be pressed at any time that a comparison of the transducer determined 
values of fuel and air flow and those read by the operator from calibrated 
analog rotometers Is desired. The operator readings of fuel and air flow are 
Input at the keyboard In response to a screen prompt and the fuel and air flows 
and the fuel to air ratio for each set of values are printed on the hard copy 
printer. 

If an execution time error occurs, an error Interrupt message sends the 
program execution to an error handling subroutine where the fuel flow and 
burner ac power are shutoff and the execution error number Is hard copy printed 
to aid the operator In determination of the software cause of the error and 
Its correction. At Initial startup a test of the burner pivot cylinder air 
supply Is made via the position signal to warn the operator If It Is off and 
stop execution until this condition Is operator corrected. A test Is also 
made to determine If the peripherals (printer and data acquisition unit) 
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attached to the IEEE-488 Bus are energized and If not to stop program execu- 
tion and warn the operator. There Is a special purpose key for operator use 
to shutoff a burner at any time. 

A critical parameter In hot corrosion testing Is the salt solution flow 
to the Injector which aspirates the solution Into the combustor. If this flow 
stops or deviates too far from an acceptable range the testing must be discon- 
tinued or erroneous results will be obtained. In our system the rate Is manu- 
ally hardware set by the operator and no further control Is provided. Flow Is 
monitored by continuously measuring the weight of the salt solution container 
supported by a load cell. If the flow, as reflected by weight change. Is 
within preset limits, testing Is allowed to continue, If not the test Is 
stopped. This aspect of operation has been hardware Implemented but the soft- 
ware has not as yet been developed. During actual use of the control program 
described here the salt solution flow monitoring Is provided by another com- 
puter based monitoring system developed previously. The function of this 
latter system will be briefly described later. 


RESULTS 

Typical burner rig flame hot corrosion test parameters taken at 15 min 
Intervals over a 14 hr period are presented In figure 4. The burner rig was 
operated under digital control. Examination of this data Indicates that good 
results of the digitally maintained specimen temperature and burner pressure 
and thusly Mach number were obtained. The "see-saw" nature of the calculated 
sodium content of the flame Is due to the low sensitivity of the strain gauge 
load cell used to weigh the salt solution container and not actual flow vari- 
ations. 

The data points reported In figure 4 were gathered by a separate computer 
based monitoring system. The data are recorded on a floppy disc for off-line 
printing or plotting. This system was previously developed to track certain 
burner parameters and shutoff the burner If any of the parameters exceeded 
preset limits for three consecutive measurements. The monitor system uses a 
separate microcomputer, program and data acquisition unit. Both the control 
and monitor systems derive their Input signals from the same burner rig trans- 
ducers for pressure and etc. The monitor system functions equally well with 
analog or digital burner control. 

From analysis of screen plotted data during each cycle (fig. 5) It Is 
concluded that the digital control system can maintain an absolute temperature 
control of ±3 °F with greater than 90 percent of the time the temperature Is 
within ±2 °F of the set point. Also, temperature overshoot of no more than 
3 °F was achieved. The burner pressure can concurrently be maintained at 
1.0±0.02 pslg which produces a Mach number of 0.3±0.02. 


CONCLUSIONS 

The digital control mode of operation of burner rigs Is a viable, highly 
flexible, and accurate means of long time, unattended materials durability hot 
corrosion testing. Limits of acceptable testing can be set and easily changed. 
Also, test modes can be easily changed, such as ramp or other heating and 
cooling patterns can be programmed. Data can be collected on disk or tape and 
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used to make calculations and correlations off-line. Also, on line hard copy 
and screen plotting of Information Is readily Implemented for real time 
assessment of burner operation. Furthermore, the computer starts and operates 
the burner In a more reproducible and predictable manner than a human operator. 
This greatly minimizes carbon buildup and frequency of cleaning of the burner. 
The computer based control system starts, runs the tests and turns off the 
j burner when finished or when the test conditions are out of preset limits. 

i ■ This latter mode of operation protects the test specimen from abnormal testing. 
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APPENDIX 


A listing of the entire digital control program Is presented In the 
following pages. This program Is written In a commercial basic language. The 
variables and function of the various program sections are defined In REM 
statements. It must be emphasized that this set of Instructions (program) Is 
not a general control program for all burner rigs, rather It was written to do 
a specific job and experience has demonstrated that It does that Job very well. 
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APPENDIX 


1 

3 

4 

5 
1 1 
12 

13 

14 
16 
17 
20 
21 

23 

24 
26 
27 

29 

30 

31 

32 

33 

34 

35 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 Gal 3=8 

64 Res3=3 1 

65 Rcon3=10 1 

66 Gai 4=15 1 

67 Res4=3 1 

68 Rcon4=20 1 

69 

70 

71 

72 


i *************************** 

i DIGITAL CONTROL PROGRAM 
i *************************** 


INTERUPT 


CLEAR 709 

ON INTR 5 GOTO Pfai 1 ' INITIALIZE POWER FAIL 
ENABLE INTR 5; 1 
CONTROL 5, 5; 50, 4000, 400 
ON ERROR GOTO Error 
PRINTER IS 701 
ON TIMEOUT 7,5 GOTO 7104 
PRINT "PRINTER ON" 

PRINTER IS 1 

l ************************************************** 

i CHECKING AIR SUPPLY TO BURNER RIG PIVOT CYLINDER 

i ************************************************** 

OUTPUT 709; "VC3" 

OUTPUT 709; "0131" 

ENTER 709; Posi 3 
OUTPUT 709; “AI32" 

ENTER 709; Posi 4 

IF Posi 3>2. 'OR Posi 4>2. THEN GOTO Abort 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA a 

REAL Const < 15> , Qtot <50) 

Spt=1652 1 TEMP SETPOINT BOTH RIGS 38,4 (DEGREES F) 

Bpspt=l . 0 1 BURNER PRESS. SET POINT BOTH RIGS 38,4 <psig> 
Start3=0 
St art 4 = 0 
Samp3=0 
Samp4=0 
Ctt=0 
Ctt44=0 
Control 3=0 
Control 4=0 
Tmax4=1652 
Tmi n4=1652 
Tmax3=1652 
Tmi n3=1652 
Mmm = 0 
Tup3=0 
Tdn3=0 
Tup4=0 
Tdn4=0 

***************************** 

INITIAL PID LOOP CONSTANTS 
***************************** 

FUEL FLOW LOOP 

AAAAAAAAAAAAAAAAAAA 

PROP. GAIN BURNER RIG 3 INIT. 

RESET BURNER RIG 3 
RATE CONSTANT BURNER RIG 3 
PROP. GAIN BURNER RIG 4 
RESET BURNER RIG 4 
RATE BURNER RIG 4 

AAAAAAAAAAAAAAAAAAA 

AIR FLOW LOOP 

AAAAAAAAAAAAAAAAAAA* 


1 AAAAAAA 


I 


VALUES 


73 

74 Air3c=200' AIR FLOW PROP. GAIN RIG 3 

75 Air4c=200' AIR FLOW PROP. GAIN RIG 4 

76 i*************************************************************************** 

77 IMAGE AAAAAA, 2X,DD,2X,DD,2X, DDD, 2X, DDDD, 2X,DD.D,2X, DDD. D, 2X, DD. D, 2X, DDDD, 2X, . 
DDDD, 2X, D. DDD, 2X, DDD 

78 ALLOCATE Out f ue 1 3s< 1 0) 
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79 ALLOCATE Outfuel 4s< 10) 

80 REAL To< 10, 10) 

90 REAL Timer<10, 10) 

91 REAL Tot<50),El <50),Rater<50),Errrt<50) 

92 REAL Ti <50) , Bprr<50) , Errrp<50) 

100 F l rst 3= 1 

110 First4=l 
130 Outc3=0 
140 Outc4=0 
150 Sumint3=0 
160 Sumint4=0 
170 Sumerrt3=0 
180 Sumerrt4=0 
190 Ht3=0 


200 Ht 4=0 
210 Ctime3=0 
220 Ctime4=0 
250 Ct 3=0 


260 Ct 4=0 

270 ALLOCATE Rn<25) 
280 N=0 

290 L=0 

291 Nn=0 

292 Nx=0 

293 Cyc 1 3=1 

294 Cyc 1 4=1 


300 Cyc 1 es3= 1 

310 Cycles4=l 

311 Cyf 1 ag3=0 

312 Cyf 1 ag4=0 

320 GOSUB Clearscreen 

321 Dumm=l 

330 OFF KEY 

331 1 ******************************************* 

333 i SCREEN DISPLAY OF SPECIAL FUNCTION KEYS 

334 1 ******************************************* 


340 

ON 

KEY 

9 

LABEL 

"STOP" 

GOTO Stop 

341 

ON 

KEY 

4 

LABEL 

"SENSOR 

CK" GOSUB Check 

350 

ON 

KEY 

0 

LABEL 

"STR3" 

GOTO Str3 

360 

ON 

KEY 

1 

LABEL 

“STR4" 

GOTO Str4 

370 

ON 

KEY 

5 

LABEL 

"P. GAIN 

" GOSUB Gain 

380 

ON 

KEY 

6 

LABEL 

"RESET" 

GOSUB Reset 

390 

ON 

KEY 

7 

LABEL 

"RATE" 

GOSUB Rates 

400 

ON 

KEY 

3 

LABEL 

" AIR3C" 

GOSUB Airrate 

401 

ON 

KEY 

8 

LABEL 

“AIR4C" 

GOSUB Airrate4 

410 

Spins 


DISP 

X 



420 GOTO Spin 

430 ' 

440 OUTPUT 2 USING "#, B" 5 255, 75 

441 I AAAAAAAAAAAAAAAAAAAAAAAAAA/SAAAAAAAAAAAAAAAAAAAAAA 

442 I BRANCHING AND TIME DISPLAY 

443 I AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


450 GOSUB Control 
460 OUTPUT 709; "TD" 

470 ENTER 709;Time$ 

480 DISP T 1 me$C7, 141 
490 GOTO 450 

500 1 ============================= 

5101 CLEAR SCREEN 

511 1 ============================= 

530 C 1 earsc reen 1 • 

540 OUTPUT 2 USING B" j 255, 75 

550 RETURN 

561 1 START BURNER RIG 3 
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562 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 
629 


Str3: * 

PRINT TABXYC1, 10); "TURN ON PRINTER" 

Wai 3=5 

INPUT "TOTAL NO. OF HEATING CYCLES" , Nocy3 
INPUT "NO. OF PREVIOUS CYCLES", Preucy3 
INPUT "BAR NO. " , Barno3$ 

Totcy3=Preucy3+l 
GOSUB Clearscreen 

OUTPUT 709; "D02, 6" ■ TURN ON SYST. PWR. 

Control 3=1 
A i r3=5500 

OUTPUT 709; "AO3,0, "&VAL$ < A l r3) ■ OPEN AIR VALVE 
WAIT 1 

OUTPUT 709; "DC2,2" ' AIR HTR 3> START RIR PREHEATER 

Start3=l 
GOTO 458 
Hi rtem: 1 

GOSUB Tep' MEASURE COMBUSTION AIR AND COMB. CHRMB. TEMP 

IF Cat 3< 440 THEN RETURN 

Start3=2 

Out f ue 1 3=3000 I FUEL NOZ.=1.00 

OUTPUT 709; "A03, 1, "&VAL$<0utfuel3> ! OPEN FUEL VALVE 
WAIT 1 

OUTPUT 709; "DC2,0" i TURN ON IGNITOR 
RETURN 
Chamt : < 

GOSUB Tep 

IF Chamb3< 800 THEN RETURN 

i It#################################################### 

GOSUB 1760 

' SET FUEL PRESSURE TO 90-92 psig 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PRINT TABXYC1, 1) ; "FU NOZ. PR. =" ; Fupress 
IF Fupress >92 THEN ' FUEL NOZ. =1.00 

Outfuel3=Outfuel3-50 
OUTPUT 709; "A03, 1, "8<VAL$COutfuel 3> 

END IF 

IF Fupress<90 THEN 

0utfuel3=0ut fuel 3+25 

OUTPUT 709; "A03, 1, "8<VAL$<Outfuel 3> 

END IF 

IF Fupress>92 OR Fupress<90 THEN RETURN 
Start3=3 

OUTPUT 709; "DC2, 1" ' START CYCLE TIMER 
RETURN 


START BURNER RIG 4 


Str4: i 

PRINT TABXY<27, 10); "TURN ON PRINTER" 

PRINT TABXY<27, 11); "TURN ON POWER RIG 3- " 
PRINT TABXY<27, 12) ; "TURNS ON 2-COLOR PWR." 
Wai 4=5 

INPUT " NO. OF HEATING CYCLES" , Noc y4 
INPUT "NO. OF PREVIOUS CYCLES ",Preucy4 
INPUT "BAR NO" , Barno4$ 

Totcy4=Preucy4+l 
GOSUB Clearscreen 

OUTPUT 709; "D02, 7" ' TURN ON SYST. PWR. 
Control 4=1 
A i r4=4750 

OUTPUT 709; "AO4,0, "&VAL$<Air4> 

WAIT 1 
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63Q 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 
66 6 
667 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

690 

691 
700 
710 
720 
722 

730 

731 

732 
740 

750 

751 


OUTPUT 709;"DC2,5"' AIR HTR 4 
Start4=l 
GOTO 450 
fli rtem4: 1 

GOSUB Tep 

IF Cat4<440 THEN RETURN 
St art4=2 
Outfuel 4=4400 

OUTPUT 709; "A04, 1, "&VAL$<: Out fuel 4) 

WAIT 3 

OUTPUT 709; "DC2, 3" 1 IGN 4 
RETURN 
Chamt4: 1 

GOSUB Tep 

IF Chamb4<650 THEN RETURN 
OUTPUT 709; "fl04, 0,4650" 'AIR 
'##################################################### 
GOSUB 1760 

PRINT TABXY<27, 1); "FU. NOZ. PRES. =" jFupress 
IF Fupress>92 THEN 

0utfuel4=0ut fuel 4-50 

OUTPUT 709; "A04, 1, "&VAL$<Outfuel 4> 

PRINT TABXY<27,2>; "FUEL D I G" ; Out f ue 1 4 
END IF 

IF Fupress<90 THEN 

Out fuel 4=0utfuel 4+15 

OUTPUT 709; "A04, 1, "kVALSCOutfuel 4) 

PRINT TABXY<27,2>; "FUEL DI G" ; Out f ue 1 4 
END IF 

IF Fupress>92 OR Fupress<90 THEN RETURN 
' ######################################### 

Hi r4=4650 
Start4=3 

OUTPUT 709; "DC2, 4" 'TIMER 4 
RETURN 

i ************************************************ 

' MANUAL STOP OF RIGS 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

Stop: ' 

INPUT "WHICH RIG", Rig 
IF R l g=4 THEN GOTO 682 
OUTPUT 709; "fl03, 1 , 10" 

Control 3=0 
OUTPUT 709; "DC2,6" 

GOSUB Clearscreen 
PRINTER IS 701 

PRINT "RIG 3 STOPPED";" "; “TOTAL CYCLES=" ; Totcy3 
PRINTER IS 1 
F l rst3=l 

IF Control 4=0 THEN GOTO 731 
GOTO 450 

OUTPUT 709; "A04, 1 , 10" 

OUTPUT 709; "DC2,7" 

Control 4 = 0 
GOSUB Clearscreen 
PRINTER IS 701 

PRINT "RIG 4 STOPPED";" " ; "TOTAL CYCLES=" ; Totcy4 
PRINTER IS 1 
F l rst4=l 

IF Control 3=0 THEN GOTO 731 
GOTO 450 
CLEAR 709 
STOP 


Rates: 


INPUT "RIG NO. ",Rigcon 
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INPUT “RATE" , Rcon 
IF Rigcon=3 THEN Rcon3=Rcon 
IF Rigcon=4 THEN Rcon4=Rcon 
RETURN 
I 

INPUT "RIG NO. ",Rigcon 

INPUT "PROP. GAIN" i Gai 
IF Rigcon=3 THEN Gai3=Gai 
IF Rigcon=4 THEN Gai4=Gai 
RETURN 
I 

INPUT "RIG NO. " , Ri gcon 
INPUT "RESET", Res 
IF Ri gcon=3 THEN Res3=Res 
IF Rigcon=4 THEN Res4=Res 
RETURN 


760 

761 

762 
770 

780 Gains 

781 

790 

791 

792 
80S 

810 Reset 

811 
820 
821 
822 
830 

1330 

1331 Airrate: 1 

1332 INPUT "AIR CONT FOR RIG 3",Air3c 

1333 RETURN 

1334 Ai rrate4: 1 

INPUT "AIR CONT FOR RIG 4",Air4c 
RETURN 

'############################################### 
i CENTRAL STEERING FOR PROGRAM FLOW 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

Cont ro 1 : 1 
FOR Rignum=3 TO 4 
GOSUB Tep 

IF Control 3=0 AND Rignum=3 THEN GOTO 1730 
IF Cont ro 1 4 = 0 AND Rignum=4 THEN GOTO 1730 


1335 

1336 

1338 

1339 

1340 
1342 

1520 

1521 
1530 
1540 

1550 

1551 

1552 

1554 

1555 


IF Control 3=2 AND Rignum=3 AND Chamb3<800 THEN GOTO 
IF Control4=2 AND Rignum=4 AND Chai«b4<800 THEN GOTO 
IF R i gnum=3 AND Control3=2 THEN GOTO 1617 
IF R l gnum=4 AND Control4=2 THEN GOTO 1617 


1556 ' 
1560 

IF 

Rignum=3 AND Control3=l 

AND 

St art3=l 

THEN 

1561 


GOSUB Airtem 




1562 


GOTO 1730 




1563 


END IF 




1570 

IF 

Rignum=3 AND Control3=l 

AND 

Start3=2 

THEN 

1571 


GOSUB Tep 




1572 


IF Cat3>575 THEN GOTO Shutoff3 


1574 


GOSUB Chamt 




1575 


GOTO 1730 




1576 


END IF 




1580 

IF 

Rignum=3 AND Control3=l 

AND 

Start3=3 

THEN 

1581 


GOSUB Tep 




1582 


IF Cat3>575 THEN GOTO Shutoff3 


1590 

1591 

1592 

1593 


GOSUB Heatup3 
GOTO 1730 
END IF 




IF 

Rignum=4 AND Control4=l 

AND 

St art 4=1 

THEN 

1595 

1596 


GOSUB Airtem4 




1597 


GOTO 1730 




1598 


END IF 




1599 

IF 

Rignum=4 AND Control4=l 

AND 

Start4=2 

THEN 

1600 


GOSUB Tep 




1601 


IF Cat 4 >575 THEN GOTO Shutoff4 


1603 


GOSUB Chamt4 




1604 


GOTO 1730 




1605 


END IF 




1606 

IF 

Rignum=4 AND Control4=l 

AND 

Start4=3 

THEN 

1607 


GOSUB Tep 





Shutoff 3 
Shut of f4 
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1608 IF Cat 4 >575 THEN GOTO Shutoff4 

1610 GOSUB Heatup4 

1611 GOTO 1730 

1612 END IF 

1613 ' 

1617 GOSUB Meas' MEASUREMENT OF RIG PARAMETERS 

1647 i 

1720 GOSUB 1760 

1730 NEXT Rignum 

1740 RETURN 

1750 1 ***+++++++++++++++++++++++++++++++++++++++++ 

1760 IF R l gnum=3 THEN Fupre=24 

1770 IF Rignum=4 THEN Fupre=29 

1780 OUTPUT 709; "flI"&VfiL$<Fupre) 

1790 ENTER 709;Fvolt 

1800 Fupress=Fvol t*10000 

1801 IF R i gnum=3 AND Start3=2 THEN RETURN 

1802 IF R l gnum=4 AND Start4=2 THEN RETURN 

1810 IF R l gnum=3 AND Control3=l THEN GOTO 6957 

1820 IF R l gnum=4 AND Control4=l THEN GOTO 6957 

2030 i 

2040 IF Ri gnum=3 THEN Xp=l 

2050 IF R l gnum=4 THEN Xp=27 

2051 IF Rignum=3 THEN Cyo=Cyc1es3 

2052 IF Rignum=4 THEN Cyo=Cycles4 

2060 PRINT TABXY<Xp, 1); "BP" ; DR0UND(Bp2, 3> ; "FP " ; DROUND(Fupress , 3> ; "CY"; 

Cyo 

2120 IF Rignum=3 THEN PRINT TflBXY(Xp, 3) ; "PG" ; Gai 3; "RS" ; Res3; "Rfl" ; Rcon3; "RC" ; Ri r 
3c 

2121 IF Rignum=4 THEN PRINT TABXY<Xp, 3) ; "P. G" ; Gai 4; "RES" ; Res4; "RA" ; Rcon4; "AC" ; A 
i r4c 

2130 IF Rignum=3 THEN Rirp=fiir3 

2140 IF Rignum=4 THEN Rirp=Rir4 

2150 IF Ri gnum=3 THEN Fuel p=Outfuel 3 

2160 IF Rignum=4 THEN Fuel p=Outfuel 4 

2170 PRINT TRBXY(Xp,4>; "F DIG" ; Fuel p ; " A DIG";flirp 

2180 i 

2210 IF R l gnum=3 THEN GOTO 2510 

2220 IF R i gnum=4 THEN GOTO 2940 

2230 IF R i gnum=3 THEN GOSUB 2280 

2240 IF Rignum=4 THEN GOSUB 2390 

2250 Cxxxx=0 

2260 RETURN 

2261 I **************************************************** 

2272 ' FUEL AND AIR ADJUST FOR RIGS 3 AND 4 

2273 I AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

2280 0utc3=0utc3+l 

2295 IF Out c 3 > 1 THEN GOTO 2310 

2300 0utfuel3s<l)=0utfue13 

2310 Out fuel 3=0utfuel 3s< 1 )-INT <Errt*Gai 3>-INT <Res3*Sumi nt3>-INT <Rat?*Rcon3> 

2330 OUTPUT 709; " H03, 1, “ 8cVFIL$ <Out f ue 1 3> 

2340 Rir3=flir3-INT<Errp*flir3c) 

2350 OUTPUT 709; "fl03, 0, "8.VflL*<flir3> 

2351 GOSUB Tep 

2352 IF Cat 3 >575 THEN GOTO Shutoff3 

2360 PRINT TABXYCXp, 5) ; "S" ; INT <Sui*u nt 3> ; "FFl " ; DROUND(Fuel f 1 ow, 2) ; "F/fl" ; DROU 

ND<F3, 3) 

2362 PRINT THBXY<Xp,6); " >54"; INT<Pctup3> ; "5054" ; INT (Pet mi d3> ; "<50" ; INT<Pctdn3> 

2363 PRINT TflBXY(Xp, 2> ; "Cfl" ; DROUNDCCat 3, 3) ; "CH" ; DR0UND(Chamb3, 4> ; "RF1 ";DROU 
ND(fli rf 1 ow, 3> 

RETURN 

I AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

0utc4=0utc4+l 
IF 0utc4>l THEN GOTO 2420 
0utfuel4s(l>=0utfuel4 

Out fuel 4=0utfuel 4s < 1 >-INT<Errt*Gai 4>-INT(Res4*Sumi nt4>-INT(Rcon4*Rate> 
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2370 

2380 

2390 

2404 

2410 

2420 



2440 OUTPUT 709; “A04, 1, "8<VAL$<Outfue1 4) 

2450 Ai r4=Ai r4-INT<Errp*Ai r4c > 

2460 OUTPUT 709; "AO4,0, " &VAL$ < A l r4 > 

2461 GOSUB Tep 

2462 IF Cat 4 >575 THEN GOTO Shutoff4 

2470 PRINT TABXY <Xp, 5) ; "S"; INT<Sumint4> ; "FF1 " ; DROUND < Fuel f 1 ow, 2> ; "F/'A" ; DROUND 
<F4,3> 

2471 PRINT TABXY <Xp , 6 > ; ">54"; INT<Pctup4) ; "5054" ; INTCPctmi d4> ; "<50" ; INT<Pctdn4 
) 

2472 PRINT TABXY<Xp, 2) ; " CA " ; DROUNDCCat 4 , 4 > ; "CH" ; DR0UND<Chamb4 , 4> ; "RF1 " ; DROUND 
<Ai rf 1 ou, 3) 

2480 RETURN 

2490 i 

2491 i RIG 3 PID LOOP BRANCHING CONTROL 

2580 i 

2510 OUTPUT 709; "AI31" 

2511 ENTER 709;Pos3 

2512 IF Pos3<=2. THEN GOTO 2760 

2520 i 

2521 i HEATING 

2522 I AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

2530 IF F l rst 3= 1 THEN T i me3=TIMEDRTE 

2540 First3=5 

2550 N=0 

2560 Ti meht=TIMEDATE 

2570 Ht3=<Timeht-Time3)x60 

2571 IF Ht3>4 THEN Cyf1ag3=0 

2580 i 

2590 PRINT TABXY < Xp , 7 ) ; "HT" ; DR0UND<Ht3, 3) ; "TEM" ; DROUNDCTempt , 4> 

2591 IF Tempt>Tmax3 AND Ht3>.2 THEN Tmax3=Tempt 

2592 IF Tempt < Tm l n3 AND Ht3>2 THEN Tmin3=Tempt 

2593 IF Tempt >1654 AND Tempt< = Tmax3 AND Ht3>.2 THEN Tup3=Tup3+<El <Wai )/60> 

2594 IF Tempt< 1650 AND Tempt >=Tmin3 AND Ht3>2 THEN Tdn3=Tdn3+<EUWai )X60) 

2595 IF Samp3=0 THEN GOTO 2602 

2597 Pctup3=<Tup3xSamp3)*100 

2598 Pctdn3=<Tdn3xSamp3)*100 

2599 Pctmi d3=100-<Pctup3+Pctdn3) 

2600 PRINT TABXY < Xp , 8 ) ; "TMAX" ; DR0UND<Tmax3, 4) ; “TMIN" ; DROUND < Tm 1 n3, 4) 

2601 i 

2602 Temptc=INT< <Tempt-32)*5/9) 

2603 IF T empt c < =860 THEN GOTO 2735 

2610 IF T emptc >=940 THEN GOTO 2735 

2620 i 

2630 Txx=<Temptc-860)/'<80x60> 

2640 GOSUB 6620 

2650 MOVE Ht 3 , Txx 

2690 DRAW Ht3, Txx 

2710 Bpp=45+<<Bp2-.95)*150) 

2720 MOVE Ht 3 , Bpp 

2730 DRAW Ht3, Bpp 

2731 Ftox=<F3-.025)*1500 

2732 MOVE Ht3,Ftox 

2733 DRAW Ht3,Ftox 

2735 IF Fupress > 1 65 THEN GOTO Shutoff3 

2736 i 


2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 


IF 0utc3>=l THEN GOTO 2750 


IF Tempt < 1636 AND Ht3<l THEN GOTO 2250 
IF T empt > 1 620 AND Tempt<1636 THEN 
Out fuel 3=0utfuel 3+8 
GOTO 2330 
END IF 

IF Tempt > 1 636 AND Tempt<1650 THEN 
0utfuel3=0utfuel3+5 
Sumi nt 3=8 
GOTO 2330 
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2748 END IF 

2749 i ++++++++++++++++++++++++++++++++++++++++ 

2750 GOTO 2230 

2751 i 

2752 ! COOLING 

2^ I A A A A A A AA AA AAAAA A A AAAAA AA A A A A A A AA A AA A A A 

2760 N=N+ 1 

2770 IF N >=2 THEN GOTO 2880 

2771 Ht3=0 

2772 Samp3=0 

2774 Sumint3=0 

2775 Outc3=0 

2776 T up3=0 

2777 Tdr>3=0 

2779 0utfue13=INT<0utf3-<0utf3*. 005)) 

2780 OUTPUT 709; "A03, 1, "&VAL$<0utfuel3> 

2781 PRINTER IS 701 

2782 PRINT USING 77; Barno3$ , Ri gnum, Cyc 1 es3, Totcy3, Tmax3, Pctup3, Pctmi d3, Pctdn3, T 
mi n3, F3, Bp2, Fuprcss 

2783 IF Pctmi d3<80 AND Cycles3>l THEN GOTO Shut3 

2785 PRINTER IS 1 

2786 Tmax3=1652 

2787 Tmi r»3=1652 

2788 Ct 3=0 

2840 Sumerrt3=0 

2850 Timel3=TIMEDflTE 

2870 GOSUB Displayl 

2880 Time3=TIt1EDATE 

2890 Ct i me3=<Ti me3-Ti mel3)/ , 60 

2893 IF Ctime3>=2.0 THEN GOSUB Cyclrt3 

2900 PRINT TABXY<Xp,7); "CLTIM"; DROUND< Ct i me3 , 3 ) ; “ TEM “ ; DROUND (Tempt , 4 ) 

2901 I aaaaaaaaaaaaaaaaaaa>saaaaaaaaaaaaaaaaaaaa 

2902 IF Ct i me3>10 OR Fupress>165 THEN GOTO Shutoff3'IF BURNER STICKS IN COOLIN 
G POSITION 

2910 GOTO 2250 

2920 i 

2921 ' RIG 4 PID LOOP BRANCHING CONTROL 

2930 ' 

2940 OUTPUT 709; "AI32" 

2941 ENTER 709;Pos4 

2942 IF Pos4< =2 . THEN GOTO 3170 

2950 i 

2951 ' HEATING 

2^52 I AAAAAAAAAAAAAAAA^AAAAAAAAAAAAAAAAAAAAAAAA 

2960 IF F i rst 4= 1 THEN Ti me4=TIMEDATE 

2970 F l rst 4=5 

2980 L=0 

2990 T i meht=TIMEDATE 

3000 Ht4=<Ti meht-Ti me4)/60 

3001 IF Ht 4 >4 THEN Cyflag4 = 0 

3010 PRINT TABXY<Xp, 7) ; "HT" ; DR0UND<Ht4, 3) ; "TEM" ; DROUNDCTempt , 4) 

3011 IF Tempt>Tmax4 AND Ht4>.2 THEN Tmax4=Tempt 

3013 IF Tempt<Tmin4 AND Ht4>2 THEN Tmin4=Tempt 

3014 IF Tempt>1654 AND Tempt<=Tmax4 AND Ht4>.2 THEN Tup4=Tup4+<El <Wai )/ , 60) 

3015 IF T empt < 1 650 AND Tempt>=Tmin4 AND Ht4>2 THEN Tdn4=Tdn4+<El <Wai >/60> 

3016 IF Samp4=0 THEN GOTO 3022 

3018 Pctup4=<Tup4''Samp4)*100 

3019 Pctdn4=<Tdn4/Samp4)*100 

3020 Pctmi d4=100-<Pctup4+Pctdn4> 

3021 PRINT TABXY <Xp , 8) ; " TMAX" ; DROUND <Tmax4, 4) ; "TMIN" ; DROUNDCTmi r>4, 4) 

3022 i 

3023 Temptc = INT<<Tempt-32)*5/'9) 

3024 IF Temptc<=860 THEN GOTO 3145 

3030 IF Temptc >=940 THEN GOTO 3145 

3031 I *************************************** 
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3040 

3050 

3090 

3100 

3120 

3130 

3140 

3141 

3142 

3143 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 
3170 

3180 

3181 

3182 

3184 

3185 

3186 

3187 
3189 

3191 

3192 
3202 

3212 
Tm i n4 

3213 
3222 
3232 
3242 
3250 
3260 
3280 
3290 
3300 
3303 

3310 

3311 
3313 
3318 

3320 

3321 

3322 

3323 
3325 


Txx= < Tempt c -860)/ <80/60) 

GOSUB 6800 
MOVE Ht4, Txx 
DRAW Ht 4 , Txx 
Bpp=45+<<Bp2-.95)*150) 

MOVE Ht4, Bpp 
DRAW Ht4,Bpp 
Ftox=<F4-. 025>*1500 
MOVE Ht4, Ftox 
DRAW Ht4, Ftox 

IF Fupress>155 THEN GOTO Shutoff4 

IF Out c 4 >= 1 THEN GOTO 3165 

IF T empt < 1 636 AND Ht4<l THEN GOTO 2250 
IF Tempt >1660 AND Tempt<1680 THEN 
Out fuel 4=0utf uel 4-8 
GOTO 2440 
END IF 

IF T empt < 1 620 THEN 

Out fuel 4=0utf uel 4+8 
GOTO 2440 
END IF 

IF T empt > 1 620 AND Tempt<1650 THEN 
0utfuel4=0utfue14+6 
Sumi nt 4 = 0 
GOTO 2440 
END IF 

i ************************* 

GOTO 2230 



i COOLING 

| aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

L=L+1 

IF L>=2 THEN GOTO 3290 
Ht4=0 
Samp4=0 
• Sumi nt4=0 
Outc4=0 
Tup4=0 
Tdn4=0 

0utfuel4=INT<0utf4-<0utf4*. 005)) 

OUTPUT 709; "H04, 1 , " &VAL$ < Out f 4 ) 

Ct 4=0 

PRINTER IS 701 

PRINT USING 77; Barno4$, Ri gnum, Cyc 1 es4, Totcy4, Tmax4, Pctup4, Pctmi d4, Pctdn4, 
, F4 , Bp2 , Fupress 

IF Pctmi d4<80 AND Cyc1es4>l THEN GOTO Shut4 
PRINTER IS 1 

Tmax4=1652 
Tmi n4=1652 
Sumerrt4=0 
Timel4=TIMEDATE 
GOSUB Display2 
Ti me4=TIMED8TE 
Ctime4=<Time4-Timel4)/60 
IF Ctime4>=2.0 THEN GOSUB Cyclrt4 

PRINT TflBXY<Xp, 7); "CLTIM" ; DROUNDCCt i me4, 3) ; "TEM" ; DROUND< Tempt , 4) 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

IF Ctime4>10 OR Fupress>155 THEN GOTO Shutoff4 


GOTO 2250 


^++++++++^ 

CYCLE COUNTING RIG 3 


| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Cyc 1 rt3: ' 
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3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3334 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 


IF Cyf 1 ag3>=l THEN GOTO 3330 
Cyc 1 es3=Cyc 1 es3+l 
Totcy3=Preocy3+Cycles3 
IF Cycles3=<Nocy3+l) THEN GOTO Shutoff3 
Cyf 1 ag3=Cyf 1 ag3+l 
RETURN 


i 

i 

i 


CYCLE COUNTING RIG 4 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Cyc 1 rt 4s 1 

IF Cyf 1 ag4 >= 1 THEN GOTO 3341 
Cyc1es4=Cyc1es4+l 
Totcy4=Prevcy4+Cycles4 
IF Cycles4=<Nocy4+l) THEN GOTO Shutoff4 
Cyflag4=Cyf1ag4+l 
RETURN 


' SHUTOFF RIGS 38,4 IF TEMP. CONTROL DEGRADES 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Shut3: 1 

PRINTER IS 701 

PRINT "RIG 3 BURNER OFF— LESS THAN 80 * IN BAND-CYCLES®" ; Totcy3 
PRINTER IS 1 

OUTPUT 709} "A03, 1,0" • FUEL VALVE CLOSED 
WHIT 2 

OUTPUT 709}"DC2,6"i POWER OFF 

GOTO 3387 

i ***************************************************** 

Shut4: 1 

PRINTER IS 701 

PRINT "RIG 4 BURNER OFF LESS THAN 80 X IN BAND-CYCLES®" ; Totcy4 

PRINTER IS 1 
OUTPUT 709; "R04, 1,0" 

WAIT 2 

OUTPUT 709;"DC2,7" 

GOTO 3419 

i **************************************************************** 

' SHUTOFF RIGS 38,4 IF CYCLES COMPLETED OR A MALFUNCTION 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

Shutof f3: I 

OUTPUT 709} "A03, 1, 10" 'FUEL OFF 
GOSUB Clearscreen 
IF Cycles3=Nocy3 THEN GOTO 3380 
IF Cycles3<XNocy3+l> THEN 
PRINTER IS 701 

PRINT "BURNER RIG 3-MALFUNCTION" 

PRINTER IS 1 

OUTPUT 709} "DC2,6" 'SYST. PWR OFF 
GOTO 3387 
END IF 

PRINT TABXY<1,5>; "CYCLES COMPLETED" 

PRINTER IS 701 

PRINT "RIG 3-CYCLES COMPLETED" 

PRINTER IS 1 
OUTPUT 709; "DC2, 6" 

Control 3 = 0 

OUTPUT 709; "AO3,0, 10" ' AIR OFF 
Control 3=8 

IF Control 4< >0 THEN GOTO 450 
CLEAR 709 'OPENS ALL RELAYS 
GOSUB Clearscreen 
PRINT TABXY<3,8>; "DONE" 

GOTO 7123 ' END 

' ******************************************* 

Shutof f 4: ' 

OUTPUT 709; "A04, 1, 10" 
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3396 GOSUB Clearscreen 

3397 IF Cyc 1 es4=Nocy4 THEN GOTO 3405 

3398 IF Cycles4<XNocy4+l> THEN 

3399 PRINTER IS 701 

3400 PRINT "BURNER RIG 4-MALFUNCTION" 

3401 PRINTER IS 1 

3402 OUTPUT 709; "DC2 ,7" 

3403 GOTO 3419 

3404 END IF 

3405 PRINT TABXY<27,,5>; "CYCLES COMPLETED" 

3406 PRINTER IS 701 

3407 PRINT "RIG 4-CYCLES COMPLETED" 

3408 PRINTER IS 1 

3409 OUTPUT 709; "DC2,7" 

3410 Control4=0 

3418 OUTPUT 709; "flO4,0, 10" 

3419 Control4=0 

3428 IF Control3<>0 THEN GOTO 450 

3438 CLERR 709 

3439 GOSUB Clearscreen 

3448 PRINT TABXY<29,8>; "DONE"' 

3448 GOTO 7123'END 

3458 1 ************************************************************** 
3468 ■ MEASURE COMBUSTION RIR AND COMBUSTION CHAMBER TEMP. 

347Q J aAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

4360 Tep: ' 

4370 IF Rignum=3 THEN Cat=0 

4380 IF Rignum=4 THEN Cat=2 

4390 IF Rignum=3 THEN Cham=l 

4400 IF Rignum=4 THEN Cham=4 

4410 OUTPUT 709; "fil "8<VAL$<Cat > 

4420 ENTER 709; T 

4430 GOSUB Tempcal 

4440 OUTPUT 709; " AI"8.VAL$<Cham) 

4450 ENTER 709; T 

4460 GOSUB Tempcal2 

1 


THEN PRINT TABXY< 1 , 4) ; "CAT" ; DR0UND<Cat3, 4 > 
THEN PRINT TABXY<27, 4> ; "CAT" ; DR0UND<Cat4, 4 


4470 IF R i gnum=3 AND Control3 
" ;DR0UND<Chamb3,4> 

4471 IF Rignum=4 AND Control4=l 
M";DR0UND<Chamb4,4) 

4480 RETURN 

4500 T empc al ; 1 

4510 OUTPUT 709; "AI019" 

4520 ENTER 709;R 

4530 C=25+<R-2. 5)^.1 

4540 D=T+C*4 . 0E-5 

4550 Tc=. 2265+D*(24150+D*<67230+D*<2.21E+6+D*<-8.61E+8+D*4. 835E+10)>)> 

4560 T f = T c * 1 . 8 + 32 

4570 IF R l gnum=3 THEN Cat3=Tf 

4580 IF Rignum=4 THEN Cat4=Tf 

4590 RETURN 


4608 Tempcal 2: 1 


OUTPUT 709; "AI019" 

ENTER 709; R 
C = 25+<R-2.5 >/. 1 
D=T+C*4. 0E-5 

Tc=. 2265+D*C24150+D*<67230+D*<2. 21E+6+D*<-8. 61E+8+D*4. 835E+10>))> 
Tf=Tc*l . 8+32 

IF Rignum=3 THEN Chamb3=Tf 
IF Rignum=4 THEN Chamb4=Tf 
RETURN 

i *************************************** 
i FIRST CYCLE HEATUP RIG 3 


4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 

4781 

4782 

4783 
4798 Heatup3s 1 
4800 


AAAAA 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


OUTPUT 709; "RI"8<VAL$<20> 
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; "CHAM 
>; "CHA 



4810 

4820 

4830 

4840 

4850 

4851 
4860 
4870 
4880 
4901 
4910 
4920 
4940 
4950 
4960 
4970 
4980 

4990 

4991 

4992 

4993 
5000 
5020 
5030 
5040 
5060 

5070 

5071 

5072 

5073 

5074 
5080 
5090 

5100 

5101 

5103 

5104 

5105 
5196 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5120 

5121 
5130 

5140 

5141 

5150 

5151 
5160 
5170 

5180 

5181 
5190 

5300 

5301 
5303 
5310 


ENTER 709$ Tool ts 
Two=(800+<Too1ts*4400>>*l. 8+32 
OUTPUT 709; “AI"&VAL$<21> 

ENTER 709; Preuol 
Pre=Prevo1*1000 
GOTO 1760 
Errt3=Two-Spt 
Errp3=Pre-Bpspt 

PRINT TABXY<1,2>; "TEMP" ; DROUNDCTwo, 4> ; "B.PR. " ; DROUND(Pre, 3) 

IF Preycy3=0 RND Cyc1es3=l AND Ctt<30 THEN GOTO 5820 
IF Two< 1620 THEN GOTO 5020ICOOLING 
IF Two>1620 THEN GOTO 5160' HEATING UP 
0utfue13=0utfuel3-INT(1.5*Errt3> 

OUTPUT 709; "R03, 1 , "&VAL*(Outfuel 3) 

Rir3=Air3-INT<700*Errp3> 

OUTPUT 709; "RO3,0, "&VRL$<Rir3) 

PRINT TRBXY < 1 , 3 > ; "FUEL" ; DROUND (Out fuel 3, 4) ; "RIR" ; DROUNDCAi r3, 4) 

PRINT TRBXY < 1 , 5> ; "FU. FL. " ; DROUND(Fuel f 1 ow, 3> 

PRINT TRBXYC 1,6); "F/fl" ; DR0UND(F3, 3> 

PRINT TRBXY <1,7); "FU.PR. " ; DROUNDCFupress , 4> 

PRINT TRBXYC 1 , 8) ; "RIR FL" ; DROUND< Ri rf 1 ow, 5 ) 

RETURN 

Nn=Nn+l 

IF Nn>=2 THEN GOTO 5070 
Ct l =TIMEDRTE 

Qutfuel3=Outfuel3-<INT(.015*Outfuel3)> 

Ht l =T I MEDRTE 

PRINT TRBXY < 1,7); "FU.PR. " , DROUND(Fupress, 4) 

PRINT TABXY<1,5>; "FU. FL. " ; DROUNDCFuel f 1 ow, 3> 

PRINT TABXY<1,6>; "F''A";DR0UND(F3,3> 

PRINT TABXY<1,8>; "AIR FL" ; DROUND(Ri rf 1 ow, 5> 

Cta=TIMEDATE 
Ctt=(Cta-Ct i >/60 

PRINT TABXY<1, 1); "COL T" ; DROUNDCCtt , 3> 

IF Preoc y3=0 AND Cycles3=l THEN GOTO 5104 
IF Ctt>10 OR Fupress>155 THEN GOTO Shutoff3 
IF Prevcy3=0 AND Cycles3=l AND Ctt>30 THEN GOTO 5118 

IF <Ctt<3 OR Preocy3=0) AND Fupress<86 THEN GOTO 5112' FUEL NQZ=1.0 
i**************************************************** 


IF < Ct t < 3 OR Preucy3=0> AND F3>.026 THEN 

Out fuel 3=0utfue1 3-35 

OUTPUT 709; "A03, 1, " &VRL$ (Out f ue 1 3) 

END IF 

IF <Ctt<3 OR Preucy3=0]> AND <F3<.025 OR Fupress<85> THEN 

0utfue13=0utfuel3+25 

OUTPUT 709; “A03, 1, " &VAL$ ( Out f ue 1 3) 

END IF 


I AAAAAAAAAA AAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


IF Prevcy3=0 AND Cyc1es3=l AND Ctt<30 THEN GOTO 4960 
IF Ct t >3 . 2 RND Two< 1620 THEN 
0utfuel3=0utfuel3+12 
IF Ct t >55 THEN GOTO Shutoff3 
GOTO 4950 
END IF 
GOTO 4960 

RETURN 'FROM COOLING 
i $$$$$$$$$$$$$*$$$$$$$$$*$$$ 

Cyt=TIMEDATE 
Ht=(Cyt-Ht l )/60 

PRINT TRBXYd, 1>; "HT T" ; DR0UND(Ht , 3) ; "F/R" ; DR0UNDCF3, 3> 
PRINT TRBXYd, 8>; "AIR FL" ; DROUND(Ri rf 1 ow, 5> 

Nn=0 

IF Two>=1648 AND Two<=1654 THEN GOSUB End3 
IF Control 3=2 THEN GOTO 450 
IF Ht > 1 0 OR Fupress>155 THEN GOTO Shutoff3 
IF Two > 1620 AND Two<1650 THEN 
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5320 

5330 

5340 

5341 

5342 

5343 

5344 
5350 
5750 
5760 
5770 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6061 
6070 
6080 
6090 
6110 
6111 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6201 
6202 
6210 
6220 
6230 
6240 
6250 
6270 
6280 
6282 

6283 

6284 

6285 
6290 
6300 

6310 

6311 

6313 

6314 

6315 

6316 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6328 

6329 

6330 


Out fuel 3=0utfuel 3+8 
GOTO 4950 
END IF 

IF Two > 1 653 THEN 

0utfuel3=0utfue13-8 

GOTO 4950 

END IF 

GOTO 4940 

I *********************************************** 
i FIRST CYCLE HEATUP OF RIG 4 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAzSAAAAAAAAAAAAAAAAAAA 

Heatup4: ' 

OUTPUT 709; " AI "&VAL$<25> 

ENTER 709; Tuol ts 
Two=<800+<Tuolts*3800))*l. 8+32 
OUTPUT 709; "fil “8tVflL$<30) 

ENTER 709; Prevol 
Pre=Preuol*1000 
GOTO 1760 
Errt 4=Two-Spt 
Errp4=Pre-Bpspt 

PRINT TABXY<27, 2) ; "TEMP" ; DROUNDCTwo, 4) ; "PRESS" ; DROUND<Pre, 3> 

i 

IF Preucy4=0 AND Cycles4=l AND Ctt44<30 THEN GOTO 6230 
IF T wo< 1 620 THEN GOTO 6230ICOOLING 
IF Two > 1620 THEN GOTO 6370' HEATING UP 

i 

0utfue14=0utfuel4-INT<1.5*Errt4> 

OUTPUT 709; "A04, 1 , "&VAL* < Out fuel 4) 

Air4=Air4-INT<700*Errp4> 

OUTPUT 709; "AO4,0, "&VAL*<Rl r4> 

PRINT TABXY<27,3>; "FUEL" ; DROUNDCOutfuel 4, 4> ; "AIR" ; DROUND<Ai r4, 4> 
PRINT TfiBXY<27, 5) ; "FU.FL. " ; DROUND<Fuel f 1 ow, 3) 

PRINT TABXY<27 , 6) ; “F/A" ; DR0UND<F4, 3) 

PRINT TABXY<27, 7) ; "FU.PR. " ; DROUNDCFupress, 3) 

RETURN 


Nx=Nx+l 

IF Nx > = 2 THEN GOTO 6280 
Ct l 44=TIMEDATE 

Out fuel4=0ut fuel 4-< INT< . 005*Out f uel 4> > 

Ht l 44=TI MEDATE 

PRINT TABXY<27, 6) ; "F/A" ; DR0UND<F4, 3> 

PRINT TABXYC27, 5) ; "FU.FL. " ; DROUNDCFuel f 1 ow, 3) 

PRINT TABXY <27,7); "FU.PR. " ; DROUND<Fupress, 4> 

PRINT TABXY<27,8>; "AIR FL" ; DROUNDCAi rf 1 ow, 5) 

Cta44=TI MEDATE 
Ctt44=<Cta44-Ct i44)/60 

PRINT TABXY<27, 1); "COL T" ; DR0UND<Ctt44, 3) 

IF Preucy4=0 AND Cycles4=l THEN GOTO 6314 

IF Ctt44>10 OR Fupress>155 THEN GOTO Shutoff4 
IF Preocy4=0 AND Cycles4=l AND Ctt44>30 THEN GOTO 6329 
IF < Ct 1 44< 3 OR Preocy4=0) AND Fupress<86 THEN GOTO 6322 
'###################################### 

IF < Ct 1 44< 3 OR Prevcy4=0> AND F4>.027 THEN 

Qutfue14=0utfuel4-16 

OUTPUT 709; "A04, 1, "&VAL$<0utfuel4> 

END IF 

IF <Ctt44<3 OR Prewcy4=0> AND <F4<.026 OR Fupress<85) THEN 

0utfue14=0utfuel4+12 

OUTPUT 709; "A04, 1, "8<VAL$ <0utfuel4> 

END IF 

IF Preucy4=0 AND Cycles4=l AND Ctt44<30 THEN GOTO 6170 
IF Ctt44>4. 0 AND Two<1620 THEN 
Outfuel4=Outfuel4+10 


23 



6331 IF Ctt44>55 THEN GOTO Shutoff4 

6340 GOTO 6160 

6350 END IF 

6351 GOTO 6170 

6360 RETURN 'COOLING RIG 4 

6361 ' **************************************** 

6370 Cyt44=TIMEDATE 

6380 Ht44=<Cyt44-Hti44)/60 

6390 PRINT TABXY<27, 1 > ; "HT T" ; DR0UND<Ht44, 3) 5 "F/fl" 5 DR0UND<F4, 4) 

6391 PRINT TABXY<27,8>; “AIR FL“ ; DROUNDCAi rf 1 ow, 5> 

6400 Nx=0 

6510 IF Two >= 1 648 AND Two< = 1654 THEN GOSUB End4 

6511 IF Control 4=2 THEN GOTO 450 

6513 IF Ht 44 > 1 0 OR Fupress>155 THEN GOTO Shutoff4 
6520 IF Two>1620 AND Tuo<1650 THEN 

6530 Outfuel 4=0ut fuel 4+4 

6540 GOTO 6160 

6550 END IF 

6551 IF Two>1653 THEN 

6552 Outfuel 4=0utfue1 4-4 

6553 GOTO 6160 

6554 END IF 

6560 GOTO 6150 

6561 End3 : ' 

6562 Control3=2 

6563 GOSUB Clearscreen 

6564 GOSUB Displayl 

6565 RETURN 

6566 End4 : ' 

6567 Control4=2 

6568 GOSUB Clearscreen 

6569 GOSUB Display2 

6570 RETURN 

6572 STOP 

6573 1 **************************************************** 

6574 ' SCREEN DISPLAY RIGS 38.4 

I AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

6580 Displayi: 1 
6590 GINIT 
6600 GRAPHICS ON 
6610 PRINT CHR*<12>; 

6620 VIEWPORT 0,60,10,70 
6630 WINDOW 0,60,0,60 

6640 AXES 15,15 

6641 CSIZE 3.8, .5 
6650 LORG 2 

6660 U=860 

6670 FOR Hzzz=15 TO 45 STEP 15 

6680 MOVE 0 , Hzzz 

6690 U=U+20 

6700 LABEL U 

6710 NEXT Hzzz 

6720 LORG 7 

6730 FOR Hz2= 1 5 TO 45 STEP 15 

6740 MOVE Hz2+5,0 

6750 LABEL Hz2 

6760 NEXT Hz2 

6770 RETURN 

6780 Di spl ay2: 1 

6781 GINIT 1 CLEARS GRAPHICS 

6790 GRAPHICS ON 

6791 PRINT CHR$<12>; 'CLEARS ALPHA 
6800 VIEWPORT 70,130,10,70 

6810 WINDOW 0,60,0,60 

6820 AXES 15,15 

6821 CSIZE 3. 8, . 5 
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6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6951 

6952 

6953 
6955 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

6972 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6996 

6997 

6998 

7002 

7003 

7004 

7005 

7006 

7008 

7009 

7010 

701 1 


LORG 2 
11=860 

FOR Inn=15 TO 45 STEP 15 

MOVE 0, Inn 

U=U+20 

LABEL U 

NEXT Inn 

LORG 7 

FOR Hz=15 TO 45 STEP 15 

MOVE Hz+5,0 

LABEL Hz 

NEXT Hz 

RETURN 

i ****************************************************** 
i RIG PARAMETER MEASUREMENTS AND CALCULATIONS 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA^AAAAAAAAA 

Meas: 1 



Sumfuel = 

0 



Sumai rfl 

=0 



Sumt o=0 




Sumrater 

= 0 



Sumbpr=8 



Sumerrt= 

0 



Sumerrp= 

0 


IF 

Ri gnum=3 

THEN 

flf 1=33 

IF 

Ri gnum=4 

THEN 

flf 1=27 

IF 

Ri gnum=3 

THEN 

Fu 1 =23 

IF 

Ri gnum=4 

THEN 

Ful =28 

IF 

Ri gnum=3 

THEN 

Chatemp=20 

IF 

R i gnum=4 

THEN 

Chatemp=25 

IF 

R i gnum=3 

THEN 

Chapress=21 

IF 

Ri gnum=4 

THEN 

Chapress=30 

IF 

Ri gnum=3 

THEN 

Wai =Wai 3 

IF 

Ri gnum=4 

THEN 

Wai =Wai 4 

R i 

Gz=l TO 4 




OUTPUT 709; "AI 

"&VflL$<Ful ) 


ENTER 709; FI e 

IF R l gnum=3 THEN Fue 1 = 1 . 83348+C . 37836* 1 000*F1 e> 
IF Rignum=4 THEN Fuel =1 . 7715+< . 28282*1000*F1 e> 
Sumfuel=Sumfuel+Fuel 
OUTPUT 709; "fll "&VflL$<flf 1 > 

ENTER 709; flf 1 e 
Zxl=flf 1e*1000 

IF R l gnum=3 THEN fli rfl =1 13. 91 + <38. 075*2x1 > 

IF Rignum=4 THEN Ai rfl =107. 04+<33. 366*2x1 ) 
Sumairfl=Sumairf1+flirf1 
NEXT Gz 

flirflow=Sumairf1/'4 
Fuel f 1 ou=Sumfue1 ^4 
Ftoair=Fuelflow^fl inflow 



IF Rignum=3 THEN F3=Ftoair 
IF Rignum=4 THEN F4=Ftoair 
' #################################### 

IF Rignum=3 AND Control3=l THEN GOTO 4860 
IF Rignum=4 flND Control 4=1 THEN GOTO 6070 
i ************************************** 

FOR Nzz= 1 TO Wai 

OUTPUT 709; "fli "&VflL$<Chatemp) 

ENTER 709; Rzz 

IF Rignum=3 THEN Tconst=4400 
IF Rignum=4 THEN Tconst=3800 

Tot <Nzz>=<800+(Rzz*Tconst>>*l .8+32 
Errrt<Nzz)=Tot<Nzz>-Spt 
Sumerrt = Surnerrt+Errrt <Nzz> 

Ti <Nzz>=TIMEDflTE 
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7012 

7013 

7014 

7015 

7016 

7017 

7018 

7019 

7020 

7021 

7022 

7023 

7024 

7025 

7026 

7027 

7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 

7036 

7037 

7038 

7039 
70401 
7050 
7060 

7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 

7100 

7101 

7103 

7104 

7105 

7106 

7107 

7108 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7121 

7122 

7123 

7124 

7125 

7126 

7128 

7129 


El <Nzz>=T l <Nzz>-Ti < 1 > 

Sumto=Sumto+Tot<Nzz) 

OUTPUT 709; "RI "&VRL$<Chapress) 

ENTER 709;Zp 

Bprr<Nzz>=Zp*1000 

Sumbpr=Sumbpr+<Zp*1000> 

Sumerrp=Sumerrp+(Bprr<Nzz)-l . 0) 

IF Nzz=l THEN GOTO 7027 

Rater<Nzz)=<Tot < Nzz) -Tot <Nzz-l ) >/<Ti <Nzz)-T l <Nzz-l > > 
Intger=<<ErrrtCNzz-l)+Errrt<Nzz))/'2)*<Ti <Nzz)-T i <Nzz-l > > 

IF R l gnum=3 RND N>=1 THEN GOTO 7027 
IF R l gnum=4 RND L>=1 THEN GOTO 7027 
IF Rignum=3 THEN Sumi nt3=Sumi nt3+Intger 
IF Rignum=4 THEN Sumi nt4=Sumi nt4+Intger 
Sumrater=Sumrater+Rat er (Nzz) 

NEXT Nzz 

IF Ri gnum=3 THEN Samp3=Samp3+< E 1 <Wai )/'60) 

IF Rignum=4 THEN Samp4=Samp4+<El <Wai V60) 

Tempt=Sumto/Wai 
Rat e=Sumrater/'Wai 
Errt=Sumerrt/'Wai 
Bp2=Sumbpr^Wai 
Errp=Sumerrp/Wai 

IF Rignum=3 RND Tempt>=1651 AND Tempt<=1653 THEN Outf 3"0utf u*l 3 
IF Rignum=4 AND Tempt>=1651 RND Tempt<=1653 THEN 0utf4"0utfu*l 4 


IF Mmm=0 THEN RETURN 


i SHUTOFF RIG IF EXECUTION TIME ERROR DETECTED 

| /\ A A A A AAAAAAAAAAAAAAAAAAAAAA A A A A* A A A A A A /N A /X A A A A A A A A A A A A 

Error: 1 

OUTPUT 709; "R03, 1 , 10" 'FUEL OFF RIG3 
OUTPUT 709; "R04, 1, 10" ‘FUEL OFF RIG4 
OUTPUT 709; "DC2,6“ IPWR. OFF RIG3 
OUTPUT 709; "DC2, 7" IPWR. OFF RIG4 
CLEAR 709 1 CLERRS 7 BUS 
PRINT "EXEC. TIME ERROR" 

DISP “Error No.=";ERRN 
PRINTER IS 701 

PRINT "EXEC. TIME ERROR" ; "ERROR NO.=";ERRN 
PRINTER IS 1 
GOTO 7123 
PRINTER IS 1 

PRINT TRBXY<6, 9); "TIMEOUT ERROR— IS PRINTER ON’’" 
PRINTER IS 701 

PRINT "TIMEOUT ERROR ON BUS" 

PRINTER IS 1 
CLERR 701 
CLEAR 709 

OUTPUT 709; "R03, 1,10" 

OUTPUT 709; "R04, 1, 10" 

OUTPUT 709; "DC2,6" 

OUTPUT 709; "DC2,7" 

GOTO 7123 

i STARTUP DETECTION FOR CELL RIR 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

Abort : 1 

PRINT "RIR OFF IN CELL —RIGS 38.4" 

STOP 

' POWER FAIL ACTION 

| AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

Pfai 1 : I 

OUTPUT 1 ; 1 , 3 
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OUTPUT 709; "A03, 1, 10" 

OUTPUT 709; "A04, 1, 10" 

OUTPUT 709; "DC2,6" 

OUTPUT 709; "DC2,7" 

CLEAR 709 

OUTPUT 1 ; "AC POWER FAILED" 

WRIT 5 

PRINTER IS 701 

PRINT "AC POWER FAILED" 

PRINTER IS 1 
CONTROL 5; 1 

STOP 

i ************************************************* 
i CHECK FUEL AND AIR TRANSDUCERS 

I aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

Check: 1 

INPUT "RIG NO. =" , Ri gnum 

IF Ri gnum=4 THEN F=28 'RIG 4 FUEL 

IF R i gnum=3 THEN F=23 'RIG 3 FUEL 

IF Rignum=3 THEN A=33 'AIR RIG 3 

IF Ri gnum=4 THEN fl=27 'AIR RIG 4 

Sumfu=0 

Sumai =0 

FOR Z=1 TO 10 

OUTPUT 709;"AI"&VAL$(F> 

ENTER 709; Fu 
Sumfu=Sumfu+(Fu*1000) 

OUTPUT 709; "RI "&VAL$(A> 

ENTER 709; Ri 
Sumai=Sumai+<Ai*1000> 

NEXT Z 

Fuel =Sumfu^l0 
Ri rf =Sumai ^10 

IF Rignum=3 THEN Fuel s=l . 83348+( . 37836*Fue1 ) 

IF R i gnum=4 THEN Fuel s=l . 7715+< . 28282*Fuel > 

IF R l gnum=3 THEN Ri rfs=l 13. 91+<38. 075*A: rf) 

IF Rignurrt=4 THEN Ai rf s= 107. 04+ <33. 366*A l rf > 

INPUT "FUEL ROT. (DECIMAL NO.)=",Frot 
Gph=-. 573827+. 6721 38*Frot-. 124521*Frot A 2+l . 92399E-2*Frot A 3 
Gphl=Gph-l . 48557E-3*Frot A 4+4.34668E-5*Frot A 5 
Fpph=Gphl*6. 78 'lbs/hr FUEL 
INPUT "AIR ROT. (INTEGER NO.)=",Arot 
IF Arot =0 AND Rignum = 4 THEN GOTO 7234 

IF R i gnum=4 THEN Apph=< (Arot/-100)*5. 3*60) 'lbs^hr FISCHER FLOW METER 

IF R i gnum=3 THEN Apph=3 1 . 494394+2 . 73432459364*Arot ' 1 bs^hr LITE BROOKS FLO 

PRINTER IS 701 

PRINT TABXY<6,2), "RIG NO.=",Rignum 

PRINT "SENSOR FUEL FL. ", DROUND(Fuel s, 5) , "SENSOR AIR FL. " , DROUND(Ai rfs, 6) 
PRINT “ROT. FUEL FL. " , DROUND(Fpph, 5) , "ROT. AIR FL. " , DR0UND< Apph, 6) 

PRINT "ROT F/A",DR0UND(Fpph/Apph > 5), "SEN F/'A" , DROUHD(Fue1 s^Ai rfs, 5) 

PRINTER IS 1 

RETURN 

END 
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Figure 1. - Burner rig and specimen (heating position). 
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Figure 2 - Schematic diagram of the burner rig control system hardware. («ll thermxouples are room temperature compensated via software, i 













(a) First cycle startup loop. 

Figure 3 - Schematic of software logic steps for digital-hybrid control system. 
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(b) P-I-D and proportional control loop for Rig 3 
Figure 3 -Continued 







(From B, Fig 3b) 
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(c) Cooling and heatup control for Rig 3. 
Figure 3 - Concluded 
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(a) Screen display 
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(b) Cycle data (set point - 1652 °F (900 °C)) 


Figure 5 - Screen display and cycle data printout. 
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